home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1992-02-04 | 884 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 72 6f 74 31 33 2d 63 |.(defvar| rot13-c|
|00000010| 68 61 72 2d 74 61 62 6c | 65 20 6e 69 6c 20 22 5c |har-tabl|e nil "\|
|00000020| 0a 43 68 61 72 20 74 61 | 62 6c 65 20 66 6f 72 20 |.Char ta|ble for |
|00000030| 72 6f 74 20 31 33 20 64 | 69 73 70 6c 61 79 2e 22 |rot 13 d|isplay."|
|00000040| 29 0a 0a 28 69 66 20 72 | 6f 74 31 33 2d 63 68 61 |)..(if r|ot13-cha|
|00000050| 72 2d 74 61 62 6c 65 20 | 6e 69 6c 20 28 73 65 74 |r-table |nil (set|
|00000060| 71 20 72 6f 74 31 33 2d | 63 68 61 72 2d 74 61 62 |q rot13-|char-tab|
|00000070| 6c 65 20 28 63 6f 70 79 | 2d 63 68 61 72 2d 74 61 |le (copy|-char-ta|
|00000080| 62 6c 65 29 29 20 28 6c | 65 74 2a 20 28 28 69 20 |ble)) (l|et* ((i |
|00000090| 36 35 29 20 28 6a 20 28 | 2b 20 69 20 31 33 29 29 |65) (j (|+ i 13))|
|000000a0| 29 20 28 77 68 69 6c 65 | 20 28 3c 3d 20 69 20 39 |) (while| (<= i 9|
|000000b0| 30 29 20 28 70 75 74 2d | 63 68 61 72 2d 74 61 62 |0) (put-|char-tab|
|000000c0| 6c 65 2d 64 69 73 70 72 | 20 72 6f 74 31 33 2d 63 |le-dispr| rot13-c|
|000000d0| 68 61 72 2d 74 61 62 6c | 65 20 6a 20 28 67 65 74 |har-tabl|e j (get|
|000000e0| 2d 63 68 61 72 2d 74 61 | 62 6c 65 2d 64 69 73 70 |-char-ta|ble-disp|
|000000f0| 72 20 28 64 65 66 61 75 | 6c 74 2d 76 61 6c 75 65 |r (defau|lt-value|
|00000100| 20 28 71 75 6f 74 65 20 | 62 75 66 66 65 72 2d 63 | (quote |buffer-c|
|00000110| 68 61 72 2d 74 61 62 6c | 65 29 29 20 69 29 29 20 |har-tabl|e)) i)) |
|00000120| 28 73 65 74 71 20 69 20 | 28 31 2b 20 69 29 29 20 |(setq i |(1+ i)) |
|00000130| 28 73 65 74 71 20 6a 20 | 28 69 66 20 28 3d 20 6a |(setq j |(if (= j|
|00000140| 20 39 30 29 20 36 35 20 | 28 31 2b 20 6a 29 29 29 | 90) 65 |(1+ j)))|
|00000150| 29 20 28 73 65 74 71 20 | 69 20 39 37 29 20 28 73 |) (setq |i 97) (s|
|00000160| 65 74 71 20 6a 20 28 2b | 20 69 20 31 33 29 29 20 |etq j (+| i 13)) |
|00000170| 28 77 68 69 6c 65 20 28 | 3c 3d 20 69 20 31 32 32 |(while (|<= i 122|
|00000180| 29 20 28 70 75 74 2d 63 | 68 61 72 2d 74 61 62 6c |) (put-c|har-tabl|
|00000190| 65 2d 64 69 73 70 72 20 | 72 6f 74 31 33 2d 63 68 |e-dispr |rot13-ch|
|000001a0| 61 72 2d 74 61 62 6c 65 | 20 6a 20 28 67 65 74 2d |ar-table| j (get-|
|000001b0| 63 68 61 72 2d 74 61 62 | 6c 65 2d 64 69 73 70 72 |char-tab|le-dispr|
|000001c0| 20 28 64 65 66 61 75 6c | 74 2d 76 61 6c 75 65 20 | (defaul|t-value |
|000001d0| 28 71 75 6f 74 65 20 62 | 75 66 66 65 72 2d 63 68 |(quote b|uffer-ch|
|000001e0| 61 72 2d 74 61 62 6c 65 | 29 29 20 69 29 29 20 28 |ar-table|)) i)) (|
|000001f0| 73 65 74 71 20 69 20 28 | 31 2b 20 69 29 29 20 28 |setq i (|1+ i)) (|
|00000200| 73 65 74 71 20 6a 20 28 | 69 66 20 28 3d 20 6a 20 |setq j (|if (= j |
|00000210| 31 32 32 29 20 39 37 20 | 28 31 2b 20 6a 29 29 29 |122) 97 |(1+ j)))|
|00000220| 29 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6f 74 31 |)))..(de|fun rot1|
|00000230| 33 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 6e |3-other-|window n|
|00000240| 69 6c 20 22 5c 0a 44 69 | 73 70 6c 61 79 20 63 75 |il "\.Di|splay cu|
|00000250| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 69 6e 20 |rrent bu|ffer in |
|00000260| 72 6f 74 20 31 33 20 69 | 6e 20 61 6e 6f 74 68 65 |rot 13 i|n anothe|
|00000270| 72 20 77 69 6e 64 6f 77 | 2e 22 20 28 69 6e 74 65 |r window|." (inte|
|00000280| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00000290| 6f 64 65 20 22 c3 88 c4 | c0 21 85 0a 00 c5 20 88 |ode "...|.!.... .|
|000002a0| c6 20 19 8a c7 20 88 c8 | 09 70 5c 22 88 c9 09 60 |. ... ..|.p\"...`|
|000002b0| c0 23 88 ca 0a 09 5c 22 | 29 29 87 22 20 5b 74 20 |.#....\"|))." [t |
|000002c0| 77 20 72 6f 74 31 33 2d | 63 68 61 72 2d 74 61 62 |w rot13-|char-tab|
|000002d0| 6c 65 20 6e 69 6c 20 6f | 6e 65 2d 77 69 6e 64 6f |le nil o|ne-windo|
|000002e0| 77 2d 70 20 73 70 6c 69 | 74 2d 77 69 6e 64 6f 77 |w-p spli|t-window|
|000002f0| 2d 76 65 72 74 69 63 61 | 6c 6c 79 20 67 65 74 2d |-vertica|lly get-|
|00000300| 6c 72 75 2d 77 69 6e 64 | 6f 77 20 62 65 67 69 6e |lru-wind|ow begin|
|00000310| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 73 65 74 |ning-of-|line set|
|00000320| 2d 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 20 73 |-window-|buffer s|
|00000330| 65 74 2d 77 69 6e 64 6f | 77 2d 73 74 61 72 74 20 |et-windo|w-start |
|00000340| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 63 68 61 72 2d |set-wind|ow-char-|
|00000350| 74 61 62 6c 65 5d 20 39 | 29 29 0a 0a 28 70 72 6f |table] 9|))..(pro|
|00000360| 76 69 64 65 20 28 71 75 | 6f 74 65 20 72 6f 74 31 |vide (qu|ote rot1|
|00000370| 33 29 29 0a | |3)). | |
+--------+-------------------------+-------------------------+--------+--------+
